home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / sources.exe / SAMPLES / ENGINES.S < prev    next >
Encoding:
Text File  |  1993-09-30  |  259 b   |  14 lines
  1. (define (fib n)
  2.   (if (< n 2)
  3.       n
  4.       (+ (fib (-1+ n)) (fib (- n 2)))))
  5.  
  6. (define (success value ticks)
  7.   (cons value ticks))
  8.  
  9. (define (failure new-engine)
  10.   new-engine)
  11.  
  12. (define engine
  13.   (make-engine (lambda () (engine-return (fib 15)))))
  14.